www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Ad/Openad.asp
<!--#include file="../conn.asp"--> <!--#include file="../Function/Function.asp"--> <% Dim ADID,AD_Link,rs ID=NoSqlHack(Request.QueryString("id")) Set rs=server.createobject("adodb.recordset") sql = "Select ADLink,ADHits from YWNT_TMS_Ad where ID=" & ID & "" rs.open sql,conn,1,3 If not (rs.bof or rs.eof) Then AD_Link=rs("ADLink") rs("ADHits")=rs("ADHits") + 1 rs.Update else response.write "<font size=2 color=red>没有找到您要浏览的广告</font>" End If rs.Close set rs=nothing call connclose() If AD_Link="" Then AD_Link="http://"&Request.Servervariables("server_name") response.redirect AD_Link %>